home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 November / Ahoy_Magazine_86-11_1986_Double_L.d64 / Long Lines (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  46 lines
  1. 100 rem **************************
  2. 110 rem *       long lines       *
  3. 120 rem * by rick nash   5/28/86 *
  4. 130 rem **************************
  5. 140 rem
  6. 150 print"[147]":print:printtab(7)"-checking data statements-"
  7. 160 ck=0:fori=49152to49337:readd:pokei,d:ck=ck+d:next
  8. 170 ifck<>30183thenprint:printtab(8)"error in data statements":end
  9. 180 printchr$(147):print:printtab(10)"disk or tape (d/t) ";:inputa$
  10. 190 ifleft$(a$,1)="t"thendv$="prepare tape":dv=1:goto220
  11. 200 ifleft$(a$,1)="d"thendv$="insert disk":dv=8:goto220
  12. 210 goto180
  13. 220 print:printtab(4)dv$", then press <return>"
  14. 230 geta$:ifa$<>chr$(13)then230
  15. 240 print:printtab(13)"-writing file-
  16. 250 f$[178]"long lines":[151]251,[194](71):[151]252,[194](72)
  17. 260 ad[178][194](251)[170][194](252)[172]256
  18. 270 [151]183,[194](ad):[151]187,[194](ad[170]1):[151]188,[194](ad[170]2)
  19. 280 [151]184,dv:[151]186,dv:[151]185,1
  20. 290 [151]251,0:[151]252,192:[151]780,251:[151]781,186:[151]782,192:[158]65496
  21. 300 [153][199](147):[153]:[153][163]17)"done!!":[128]
  22. 310 [131] 169,0,168,133,251,133,253,162
  23. 320 [131] 160,134,252,162,224,134,254,177
  24. 330 [131] 251,145,251,177,253,145,253,200
  25. 340 [131] 208,245,230,252,166,254,232,208
  26. 350 [131] 236,165,1,41,253,133,1,162
  27. 360 [131] 21,189,96,165,157,192,192,202
  28. 370 [131] 16,247,162,29,189,202,170,157
  29. 380 [131] 214,192,202,16,247,162,0,160
  30. 390 [131] 0,189,107,192,240,15,133,251
  31. 400 [131] 189,134,192,133,252,189,160,192
  32. 410 [131] 145,251,232,208,236,96,165,95
  33. 420 [131] 208,2,198,96,198,95,164,11
  34. 430 [131] 185,251,192,145,95,136,208,248
  35. 440 [131] 76,42,165,203,218,222,132,186
  36. 450 [131] 205,208,231,241,6,11,245,19
  37. 460 [131] 22,206,31,32,33,132,133,253
  38. 470 [131] 252,162,180,194,255,0,192,192
  39. 480 [131] 192,165,165,165,165,165,165,166
  40. 490 [131] 166,164,165,165,192,165,165,165
  41. 500 [131] 164,164,192,192,232,232,230,231
  42. 510 [131] 193,193,192,193,193,192,192,193
  43. 520 [131] 192,193,192,193,192,192,176,76
  44. 530 [131] 86,192,192,192,1,1,4,4
  45. 540 [131] 159,159
  46.